home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / pc / win / edu / profan2 / beispiel.lzh / LLIST.PRF < prev    next >
Encoding:
Text File  |  1995-07-31  |  335 b   |  19 lines
  1. Declare File$,Line$
  2.  
  3. Let File$ = @LoadFile$("Load PROFAN File:","*.PRB")
  4. IFNOT @Equ$(File$,"")
  5.   Cls
  6.   Assign #1,File$
  7.   Reset #1
  8.   Assign #2,"PRN"
  9.   Rewrite #2
  10.   WHILENOT @Eof(#1)
  11.     Input #1,Line$
  12.     Let Line$ = @AnsiToOem$(Line$)
  13.     Print #2,Line$    
  14.   WEND
  15.   Close #1
  16.   Print #2,@Chr$(12)
  17.   Close #2
  18. ENDIF
  19. END